home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak - Disc 3
/
Infomagic - Windows 3-Pak (Disc 3 of 3).iso
/
Telnet-Clients
/
HOSTACCESS.exe
/
MISC.1
/
INSTALL.BOT
< prev
next >
Wrap
Text File
|
1998-12-04
|
9KB
|
300 lines
* $Workfile: INSTALL.BOT $
* $Revision: 1.0.1.4 $
* $Modtime: 04 Dec 1998 17:29:04 $
*
FNPRG="PIX.PROGS.F";HP=""
HP<1>="PIX.INSTALL.HOST";HP<2>="PIX_INSTALL_HOST"
HP<3>="INSTALL.HST"
HP<4>="PIX.INSTALL.USER";HP<5>="PIX_INSTALL_USER"
HP<6>="INSTALL.USR"
CFP="CREATE-FILE";CFPI="CREATE.FILE"
DIM FLS(6,4);NBR.FLS=6
FLS(1,1)="PIX.CONTROL.F";FLS(1,2)="PIX_CONTROL_F";FLS(1,3)="1,1 17,1"
FLS(2,1)="PIX.TEXT.F";FLS(2,2)="PIX_TEXT_F";FLS(2,3)="2,1 17,1"
FLS(3,1)="PIX.DB.F";FLS(3,2)="PIX_CONTROL_F";FLS(3,3)="3,1 11,1"
FLS(4,1)="PIX.EASY.ACCESS.F";FLS(4,2)="PIX_EASY_ACCESS_F";FLS(4,3)="4,1 11,1"
FLS(5,1)="PIX.TRANSFER.F";FLS(5,2)="PIX_TRANSFER_F";FLS(5,3)="5,1 17,3"
FLS(6,1)="PIX.GUI.FORM.F";FLS(6,2)="PIX_GUI_FORM_F";FLS(6,3)="2,1 17,1"
FOR X=1 TO NBR.FLS;FLS(X,4)="DYNAMIC";NEXT X
PDP="PIX.DOS.PICK";PDPU="PIX_DOS_PICK"
PRINT @(0):;* unidata bug !!
OPEN "",FNPRG TO PIX.PROGS.F ELSE
PRINT FNPRG:" has not been created, please create correctly"
PRINT "as a programs file"
STOP
END
MSG="";STX=CHAR(2);UNIPATH=""
ON.16=0
PROMPT ""
ESC=CHAR(27);AX=ESC:"[=";AE=ESC:"\";AM=CHAR(254);DUM=@(0,0)
CLS=ESC:"[H":ESC:"[J";POS1=ESC:"[2;1H";POS2=CLS:POS1
POS3=ESC:"[3;1H";POS4=ESC:"[1;1H";HIDE=AX:"13l";SHOW=AX:"13h"
PRINT HIDE:AX:"6n":;INPUT XX:;INPUT CLR:;PRINT SHOW:
IF CLR THEN
WCOL="1;37;44";NCOL="0;30;47";SCOL="0;31;47";HCOL="1;37;41"
END ELSE
WCOL="0;30;47";NCOL=WCOL;SCOL="1;37;47";HCOL="1;37;40"
END
PRINT CLS:
PRINT AX:"2;2;23;79;1;":WCOL:"u":
PRINT AX:"12;176h":CLS:
PRINT AX:"24;1l":
PRINT AX:"97;":NCOL:"m":AX:"98;":SCOL:"m":
PRINT AX:"99;":HCOL:"m":
PRINT AX:"4;7;4;72;65;":NCOL:"u":
PRINT ESC:"_CSelect Host System you are installing to":AE:
PRINT AX:"1v":
PRINT ESC:"_1;10;27;10;65;1SMachine Types;PRIME &Information - PI/Open;":
PRINT "Uni&Data on Unix;Unidata on &NT":
PRINT ";Uni&Verse on Unix;&Universe on NT;Ultimate;MDIS;C-ITOH && GA":
PRINT ";ADDS Mentor;R83 and ALL others":AE:
PRINT AX:"23;1h":
PRINT HIDE:
EXECUTE "CONTROL-CHARS ON"
EXECUTE "BASICTYPE 'P'"
INPUT KY:;KY=KY[2,2]
INPUT MTYPE:
ENVIR="";ENVIR<1>=MTYPE
PRINT SHOW:
IF KY="ES" THEN MSG="Install Aborted By Pressing Escape";GOTO 55
PRINT AX:"4;7;6;72;65;":NCOL:"u":
PRINT ESC:"_WHOSTACCESS Host Programs Installation":AE:
PRINT ESC:"_UPress 'Q' to quit this stage of installation":AE:
*
PRINT HIDE:ESC:"[=9;9n":
LOOP INPUT RE UNTIL INDEX(RE,STX,1) DO REPEAT
INPUT TRD
*
PRINT POS2:
PRINT ESC:"_G":TRD:"\HOST.EXE":AE:
LOOP INPUT RE UNTIL INDEX(RE,STX,1) DO REPEAT
INPUT CODE ;PRINT SHOW:
PRINT POS2:
IF CODE = 1 THEN ON.16=1
*
MSG="Install aborted by User"
10 PRINT POS2:
PRINT "Enter path to the drive you are installing from : ":
INPUT FL
IF FL="Q" THEN GOTO 50
*
LFL=LEN(FL)
IF FL[LFL,1] = "\" THEN FL = FL[1,LFL-1]
*
X = COUNT(FL,'\')+(FL <> "")
INST.DIR = FIELD(FL,'\',X)
*
IF LEN(INST.DIR) > 8 AND ON.16 THEN
PRINT POS1:"16bit HOSTACCESS does not support long Directory names ":INST.DIR
INPUT RE:
IF RE="Q" THEN GOTO 50
FL = ""
GOTO 10
END
*
PRINT POS2:
PRINT HIDE:
PRINT ESC:"_G":FL:"\HOSTPROG.EXE":AE:
LOOP INPUT RE UNTIL INDEX(RE,STX,1) DO REPEAT
INPUT CODE ;PRINT SHOW:
PRINT POS2:
IF CODE # 1 THEN
PRINT POS1:"Incorrect path entered ":FL:" , press <return> to retry ":
INPUT RE:
IF RE="Q" THEN GOTO 50
GOTO 10
END
PRINT ESC:"_U":ESC:"\":
PRINT ESC:"_UNow decompressing host programs to hard disk":ESC:"\":
PRINT ESC:"_E":TRD:"\PIXINIT.CTL":AE:
PRINT HIDE:
PRINT ESC:"_1e":FL:"\HOSTPROG.EXE":AE
LOOP INPUT RE UNTIL INDEX(RE,STX,1) DO REPEAT
INPUT CODE
* wait for end of decompress *
SLEEP 5
PRINT ESC:"_0;9D":TRD:'\HOSTP HOSTPROG HOSTPROG':AE:
PRINT SHOW:
PRINT ESC:"_Uchecking decompression completed ...":ESC:"\":
DECOMP=0
LOOP
RQM
UNTIL DECOMP DO
PRINT HIDE:ESC:"_G":TRD:"\PIXINIT.CTL":AE:
LOOP INPUT RE UNTIL INDEX(RE,STX,1) DO REPEAT
INPUT CODE ;PRINT SHOW:
IF CODE=1 THEN DECOMP=1
REPEAT
PRINT ESC:"_E":TRD:"\PIXINIT.CTL":AE:
PRINT ESC:"_U":ESC:"\":
*
IF MTYPE=2 THEN
D1="Specify the full UNIX or VMS path for this UNIDATA Account"
D2="( eg /usr/hostaccess or UDT_HOME:[HOSTACCESS] )"
15 PRINT POS2:D2:POS4:D1:
PRINT POS3:"Enter full path or 'Q'uit : ":
INPUT UNIPATH
IF UNIPATH="" THEN GOTO 15
IF UNIPATH="Q" OR UNIPATH="q" THEN GOTO 50
IF NOT(INDEX(UNIPATH,":[",1)) THEN
IF UNIPATH[LEN(UNIPATH),1]#"/" THEN UNIPATH=UNIPATH:"/"
END ELSE
IF UNIPATH[LEN(UNIPATH),1]#"\" THEN UNIPATH=UNIPATH:"\"
END
D3="Path will be taken as :"
PRINT POS2:D3:POS4:UNIPATH:
PRINT POS3:"Press enter to accept, 'M'odify or 'Q'uit : ":
INPUT RESP,1
IF RESP="M" OR RESP="m" THEN GOTO 15
IF RESP="Q" OR RESP="q" THEN GOTO 50
IF RESP#"" THEN GOTO 15
END
*
IF MTYPE=3 OR MTYPE=5 THEN
IF MTYPE=3 THEN
D1="Specify the full NT path for this UNIDATA Account"
D2="( eg c:\udt\hostaccess )"
END ELSE
D1="Specify the full NT path for this UniVerse Account"
D2="( eg c:\UV\hostaccess )"
END
16 PRINT POS2:D2:POS4:D1:
PRINT POS3:"Enter full path or 'Q'uit : ":
INPUT UNIPATH
IF UNIPATH="" THEN GOTO 15
IF UNIPATH="Q" OR UNIPATH="q" THEN GOTO 50
IF UNIPATH[LEN(UNIPATH),1]#"\" THEN UNIPATH=UNIPATH:"\"
D3="Path will be taken as :"
PRINT POS2:D3:POS4:UNIPATH:
PRINT POS3:"Press enter to accept, 'M'odify or 'Q'uit : ":
INPUT RESP,1
IF RESP="M" OR RESP="m" THEN GOTO 16
IF RESP="Q" OR RESP="q" THEN GOTO 50
IF RESP#"" THEN GOTO 15
END
*
PRINT CLS:
PRINT POS1:"Creating files PIX.CONTROL.F and PIX.TEXT.F, please wait ..":
PRINT AX:"1h":
LOC="";SIZ=30000;CH.255=0;PICK=1
IF MTYPE=1 OR MTYPE=2 OR MTYPE=3 OR MTYPE=4 OR MTYPE=5 THEN
IF MTYPE=2 OR MTYPE=3 OR MTYPE=4 OR MTYPE=5 THEN
OPEN "","VOC" TO VOC ELSE PRINT AX:"1l":"NO VOC FILE";STOP
LOC=" LOCAL COMPLETE"
IF MTYPE=2 OR MTYPE=3 THEN LOC=" DIRECT FORCE"
READV FLAV FROM VOC,"RELLEVEL",3 ELSE FLAV=""
IF FLAV="INFORMATION" OR FLAV="NEWACC" THEN PICK=0
END
IF MTYPE=1 THEN PICK=0
SIZ=5000000;CH.255=1
END
*build files*
FNPTR=1;VB=CFP;FSPTR=3
IF MTYPE=1 THEN VB=CFPI;FSPTR=4
IF MTYPE=2 THEN VB=CFPI;FNPTR=2
IF MTYPE=4 AND NOT(PICK) THEN VB=CFPI;FSPTR=4
FOR X=1 TO NBR.FLS
FN=FLS(X,FNPTR);FS=FLS(X,FSPTR)
OPEN "",FN TO TESTIT ELSE
EXECUTE VB:" ":FN:" ":FS
IF MTYPE=2 OR MTYPE=3 THEN
DATA "Y"
EXECUTE "SETFILE ":UNIPATH:FN:" ":FLS(X,1):" OVERWRITING"
END
END
NEXT X
*
PRINT CLS:AX:"1l":
*
FN=FLS(1,1)
OPEN "",FN TO PIX.CONTROL.F ELSE
MSG="Error creating File(s), please ensure correct host type"
GOTO 50
END
*
PRINT CLS:ESC:"_0;":HCOL:"WLoading bootstrap Stage":AE:
PRINT POS1:"Compiling ECHO programs":
PRINT HIDE:
EON="ECHO ON";EOFF="ECHO OFF"
IF MTYPE=1 OR MTYPE=2 OR MTYPE=3 THEN
EON="EXECUTE 'PTERM -FULL'";EOFF="EXECUTE 'PTERM -HALF NOLF'"
END
WRITE EON:AM:"END" ON PIX.PROGS.F,"EON"
WRITE EOFF:AM:"END" ON PIX.PROGS.F,"EOFF"
EXECUTE "BASIC ":FNPRG:" EON"
EXECUTE "BASIC ":FNPRG:" EOFF"
PRINT SHOW:
PXDP=PDP;IF MTYPE=2 OR MTYPE=3 THEN PXDP=PDPU
20 PRINT POS2:"Uploading ":PXDP:" via loader ...."
LPROG="PIX.LOADER"
IF MTYPE=2 OR MTYPE=3 THEN LPROG="PIX_LOADER"
DFN=TRD:"\HOSTPROG\DOSPICK.PRG"
PRINT HIDE:
CALL @LPROG(PXDP,TRD:"\HOSTPROG\DOSPICK.PRG")
PRINT SHOW:
READV TEST FROM PIX.PROGS.F,PXDP,1 ELSE
PRINT POS2:
PRINT "Error uploading ":PXDP:", (R)etry or (Q)uit :":
INPUT RE
IF RE="Q" OR RE="q" THEN GOTO 50
GOTO 20
END
*
ENVIR<8>=UNIPATH
ENVIR<4>=SIZ;ENVIR<5>=CH.255
WRITE ENVIR ON PIX.CONTROL.F,"ENVIRONMENT"
*
PRINT POS2:"Now Compiling BASIC program ":PXDP:" ...":
PRINT HIDE:
EXECUTE "BASIC PIX.PROGS.F ":PXDP
SLEEP 2
EXECUTE "CATALOG PIX.PROGS.F ":PXDP:LOC
IF MTYPE=2 OR MTYPE=3 THEN
READ CAT.REC FROM VOC,PXDP ELSE
PRINT SHOW:"NO VOC CATALOG ENTRY FOR ":PXDP
STOP
END
WRITE CAT.REC ON VOC,PDP
END
PRINT SHOW:
*
FOR CTR=1 TO 4 STEP 3
REC="";ST="";ER=""
PXIH=HP<CTR>;IF MTYPE=2 OR MTYPE=3 THEN PXIH=HP<CTR+1>
PRINT POS2:"Now uploading ":PXIH:" using PIX.DOS.PICK ....":AE:
DFN=TRD:"\HOSTPROG\":HP<CTR+2>
CALL PIX.DOS.PICK(DFN,REC,"H!",PXIH,ST,ER)
IF ST<1> > 0 OR ER > 0 THEN
MSG=PXDP:" ":PXIH:" failure, check protocol links";GOTO 50
END
WRITE REC ON PIX.PROGS.F,PXIH
PRINT POS2:"Now Compiling BASIC program ":PXIH:" ...."
PRINT HIDE:
EXECUTE "BASIC PIX.PROGS.F ":PXIH
EXECUTE "CATALOG PIX.PROGS.F ":PXIH:LOC
IF MTYPE=2 THEN
READ CAT.REC FROM VOC,PXIH ELSE
PRINT SHOW:"NO VOC CATALOG ENTRY FOR ":PXIH
STOP
END
WRITE CAT.REC ON VOC,HP<CTR>
END
NEXT CTR
*
PRINT SHOW:
PRINT ESC:"_W":AE:
ENVIR<6>=FL
ENVIR<7>="INSTALL"
WRITE ENVIR ON PIX.CONTROL.F,"ENVIRONMENT"
IF MTYPE=2 OR MTYPE=3 THEN
CHAIN "PIX_INSTALL_HOST"
END ELSE
CHAIN "PIX.INSTALL.HOST"
END
*
*
50 PRINT AX:"v":
55 PRINT AX:"23l":AX:"v":
PRINT MSG;STOP
END